;====================================================================
; Project:     The Suspect 
; Version:     0.1
; Author:      Marco Sessa
; Email:       marcosessa@gmail.com
; Copyright:   Zarkosoft
; Description: 
;              14 July 2011     
;                   
;====================================================================
Include "constants.bb"
Include "players.bb"

;====================================================================
; Global Images
;====================================================================
;Global charImg1 = LoadImage("people\1.jpg")
;ScaleImage charImg1, 0.20, 0.20

;====================================================================
; Functions
;====================================================================
Function setupInterface()
  
End Function


Function drawInterface()
  Color 0,0,255
  Local UIx = screen_width - (1 * tileSize)
  Local UIy = 100
  Text UIx, UIy, AppName$ + " v. " + AppVersion + MajorAppVersion
  
  UIy = UIy + 30
  If showSuspectInfo = True
    Text UIx, UIy, "Random Suspect: " + suspectIdPlayer1
    
    Local i
    For i = 1 To maxAttributes
      setFontColor(i)
      Text UIx, UIy + 15 * i, attributes(i,Language) + ": " + players(suspectIdPlayer1,i)
    Next
    
    UIy = UIy + 15 * maxAttributes + 30
    ;Local suspectBigImage = mainArray(suspectIdPlayer1,1)
    ;ScaleImage suspectBigImage, 2, 2
    DrawImage mainArray(suspectIdPlayer1,1), UIx,UIy
  EndIf
  
  Color 0,190,0
  Text UIx, UIy + 100, "E=ENGLISH, i=ITALIAN"
  Text UIx-30, UIy + 115, "FRECCIA DESTRA=NUOVO SOSPETTATO" 
  Text UIx-30, UIy + 135, "FRECCIA SINISTRA=MOSTRA SOSPETTATO" 
  
  Text UIx-80, UIy+160, "1=M 2=glass 3=white 4=mustache 5=hut"
  Text UIx-80, UIy+195, "6=sideburns 7=blue 8=green 9=long 0=neo"
  
End Function

Function setFontColor(i)
  If (i Mod 2)
    Color 128,128,128
  Else
    Color 255,255,255
  EndIf
End Function


Function SuspectGuessed()
  Color 190,190,0
  Local UIx# = screen_width/2
  Local UIy# = screen_height/2
  Text UIx#, UIy#, messages(1,Language) + players(suspectIdPlayer1, 2), True, True
  
  isGameFinished = True
  
End Function
;~IDEal Editor Parameters:
;~C#Blitz3D